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ما هى قواعغد البيانات المتصلة؟ 
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sql server‏ 

الموجود ضهن القسخوال والنك الخطوات تاقصل . 
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Server Explorer‏ ت 


استعد الآن للأهم وهو الاتصال بها وبرمجتها 


الكود . 


اولا : حتى نتعامل مع القاعدة في ا۹ء يجب استيراد مكتبة 
نكتب في اعلى اعلى الكود العبارة 


imports system . data . sqlclient 


[__s® Button =] ¥ click 
| Imports System. Data. SsqlIClient 


APubLic Class Form1 
. Private Sub Button1_ Click( By Etem. Object, ByVal e As 


| End Sub 
End Class 


والآن في حدث الضفط على الزر ننشئ الاتصال الجديد بها 


نعرف اسمه ونوعه 


»# Euttonl =| #F Click : 
Imports System. Data. SsqlC lient 3 
APubLic Class Form1 ك‎ 


= Private sub Button1 Click(BEyval sender As System.Object, Byval e A5 
1 Dim co| As New System.Data. sqlClient -. SqlConnection(y7™ 

End Sub 

ما سيوضع هنا هو الاهم وهو كاملا في End Class‏ 


الصورة التالية 


الهم سلسلة الاتصال التي ستوضع بين اشارتي التنصيص(""') 
لن تتعب بها قم بما يلي اضغط على قاعدة البيانات فى المستكشف 
ولاحظ خصائصها فمنها سوف نحصل على سلسلة الاتصال 
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A My Project‏ 
i App.config‏ 
I Formlwb‏ 


كل ما عليك القيام به هو نسخ عذه السلسلة كلها 
ولصقها بين اشارتي التنصيص وعليك حذف اي 
اشارة تنصيص قد توجد في هذه السلسلة 


انتبه : السلسلة طويلة شوي ولا تظهر كاملة 
فعليك سحب الفأرة وعند لصقها يجب ان يكون 
لونها كلها احمر لتتأكد انها نص 


ql Solution Explorer i REE Be E LE 


Lonnecti on‏ اھ 


HS‏ 2 ا 


فما یوضع بین " " هونص ویلون لوحده بالاحمر 
واذا لم يظهر اللون الاحمر فهناك خطأً 


Hame; mydatanarme 
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Loannectian SIG Data Šourçe =| اسم السيرفر‎ SHLERXPRESS:Initi al Latalog=m) 


SqlConnection( "Data Source=aĞl كmرقرıيشn‎ MSQLEXPRESS; Initial Catalog=mydataname ; Integrated Security=True ;Pooling=False" ) 


ما هو ملون بالاحمر هو سلسلة الاتصال والتي حصانا عليها من الخصائص نسخ ثم لصق بين علامتي التتصيص 


ن لفان رف الا هال گل اروف 


dim co as system.data.sqlclien.sqlconnection=new sqlconnection(" seris") 

طبعا التي قبل اقصر 

(ستجدها عند كتابة الكود بشكل اخر فقط لكي تحتويها الصورة وايضا تتعلم طريقة كتابة الكود الطويل على عدة اسطر) 
بعد تعريف الاتصال سنعرف جملة ا۹ء لكي تعطينا المطلوب 
حاليا ستكون بسيطة اكتب ما يلي 

dim sqlcom as new system . data . sqlclient . sqlcommand ("select * from Syria" , co) 

هذه العبارة تعني اختر كل ما في الجدول هأ٣۷>‏ 
فف آلتى جد .الفاضاة اسم الأنضال وهو ضرؤرك 
لو كانت عبارة اء طويلة كنا عملنا التالي وهي تعطي نفس النتيجة 
بالحالين 


dim sq as string ="select * from Syria" 


dim sqlcom as new system.data.sqlclient.sqlcommand(sq,co) 
والآن نطلب منه فتح الاتصال‎ - 1 
co.open() ونکتب‎ 
تم نطلب منه تنفيذ جملة الاستعلام‎ - 2 


sqlcom. ExecuteNonQuery( ) 


طبعا هناك عدة طرق للتنفيذ كقراءة البيانات وغيرها بعدين نتكلم عنها 
دوفن آأخل اناك من صخة الاتضال واا 
نرسل لانفسنا رسالة 

MsgBox("")‏ ممتاز لقد نجحت(" 


4= لق اتال 
co .close()‏ 
نفذ بالضغط على زر التشغيل وشوف الرسالة وافرح 


4# Button +| * Click 


EPrivate Sub Button1 Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  |# 


تقق. اتفال 

Dim co As New System. Data.SqlClient.SqlConnection ("Data Source= \SQLEXPRESS;" _ 
& "InitialCatalog=mydataname;j" _ 7 
& "Integrated Security=Trué;Pooling=False"} ' هتا وفعت ضفن اسطر فمن اخل الصورة‎ 

تمكن كتايبته نشكل ار" 

' Dim co As System.Data.SsqlClient.SqlConnection = New SqlConnection ك‎ 


' ("Data Source=MOHANNADHKNSQLEXPRESS; Initial Catalog=mydataname ; Integrated Security=True;Pooling=False" ) 


کے اة تنك مرف كته مكف اجهفاة هوك م هة و اققعا ت ' 


Dim sqlcom As New System.Data. SqlClient .SqlCommand("select * from syria", co) 
یکی ,کیاد ا ره ا لاستعلام قي تحص وتههها"‎ 


Dim sqstring As String = "select * from syria 


' Dim sqlcom As New System. Data.SqlClient.SqlCommand(sqstring, co) 


تققح الاتصال" 

co.Open() 

sqlcom. ExecuteNonQuery( )‏ اة :لتقسةا'" 

MsgBox" lix: ("ممتاز اقد‎ + 
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ما رأيك ان نقوم بعملية اهم يعني بدها تعب ولكنها تسعد القلب عند 
نجاحها 

وهي تنفيذ جملة استعلام فيها عملية ادراج بيانات في قاعدة البيانات 
اول الامر اصنع نموذج بالشكل التالى 
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وغير الخصائص له 
صندوق النص اسمه البرمجحي 
الاول للرقم Numbox‏ 
الثاني للاسم nambox‏ 
الثالت للمدينة cityDOX‏ 
لن نغير شيئ في الكود سوى عبارة الاستعلام لتصبح 


"insert into syria (id,name,city)values('" & Me.numbox.Text & "' „, '" & Me.nambox.Text & "','" & Me.city.Text & "')" 


ادرج في حقول الجدول القيم 
الاهم في هذه العبارة هو اشارات التنصيص فأي خطأً يعني توقف التنفيذ 


Dim co As New System.Data.SqlClient. SqlConnection("Data Source=MOHANNADHKN\SQLEXPRESS;"™ _ ا‎ 
& "Initial Catalog-mydataname;" _ 
& "Integrated Security=True ;Pooling=False"} '" ا هتا وقعت ضمن اسطر من اجل الصوزة‎ 
فشكن قضاتجه مكل اه"‎ 
' Dim co As System.Data.SqlClient.SqlConnection = New SqlConnection 
'("Data Source \SQLEXPRESS; Initial Catalog=mydataname ; Integrated Security=True;Pooling=False"} 
` قن التسار اأقخااة سوق تتشي اسع الحو اك‎ 1 


Dim sqstring As String = "insert into syria (id,name,city)values]('™ & Me.numbox. Text & "' , '" & Me.nambox.Text & "','" 


Dim sqlcom As Nêw System. Data.SqlClient.SqlCommand(sqstring, co) 
' ويمكن تغريقة كما سيق‎ 

ققتخ الاتشالك ' 

co.Open() 

تقول ا قك اف الاستعلاد ' 


sqlcom. ExecuteNonQuery ( ) 


ت ت خورف اتتا تججتا ترسشل (رشالة "lim aî‏ 

("تم الأدراج مستاز لقعد MsgBox" a3‏ 

تعلق الاتهصال"' 

co. Close) 


والعبارة كما تبدو كاملة في البرنامج 


: "insert into syria (id,name,city)values('" & Me.numbox. Text & "' '" & Me.nambox. Text & "','" & Me.city.Text & "')" 
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نبدأمن الیسار اولا () ثم (") ثم (8) ثم فراغ 
أما Me.numbox..text‏ ستحدە يكمل عنك الکتابة 


نريد النص المكتوب في مربع النص هذا وكلمة عم" 

اي مربع النص الذي في نفس الفورم فقد تريد ان تأخذه من غيرها 
نعود تترك فراغ تم (8) تم () تم () تم (,) وهكذا حتى النهاية 
اخ 5ة الفواصل لن اى اى اال 
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مبروك لك 


قاعدة البيانات المنفصلة 

وهي قاعدة من خارج البرنامج يعني متل اكسس واوراكل 
انا سأعمل على اكسس لأنه الاشهر (لاني لا أعرف غيره) 
اعمل القاعدة كما يلي 

افتح اكسس (2007) ثم انشئ القاعدة 
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بيانات خارجية أذدوات قاعدة البيانات 
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من الفيجول وكما سبق 
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انتقال إلى ” 


1 memo latakia 


add connection رڇرëۃ†خl,و‎ data conneCtiټ0¬‎ jıميلllب افتح‎ 


فتظهر النافذة 


اتر ا قومو د لاك اقل مع اکس 


| Enter information to connect to the selected data source or | 
click "Change" to choose a different data source and/or 
provider. 


مچ استعرض الامر 5۲0۷58 وابحث عن قاعدتك على 


Database file name: 


User name: Admin 


| جرب نجاح الاتصال بالضغط علjy test connection‏ 


Advanced... 
Test Connection OK Cancel O 
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in Stored Procedures 
ia Functions 

Ta Senyers 

#î SharePoint Connecti ons 


والان اصنع نموذج وضع به زر وانقر عليه نقرتین 
کما فعلنا سابقا سنفعل الان سنستورد مكتبة 
imports system.data.oledb‏ 


;# Buttonl | 7 Cik 
Imports System. Data.OleDb 


> Î 


- Private Sub Button1 Click(ByVal sender As System.Object, ByVal e As Syster 


| End Sub 
End Class 


وهي المختصة بأكسس ونكتبها في اعلى الكود 
للاتصال بالقاعدة نكت 


Dim co As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\asd.accdb") 


طا انت ترف من اين حصت على السلسلة للاضال 


Properties 


asdacedb Connection 7 


ctor String Provider= Microsoft LALELEDE.LZA.O;Data 3 


Bê 
Typê WS Jet 
version 0400.0000 


E î >| #* Click 
z3 System. Data. OleDb 
ACIass Forma 


mivate Sub Button1 ClIick(ByVal sender As System.Object, ByVal e As System. EventArgs) Handles Button1 Click 


تعريفق اسحا ل " | 


Dim cû As New System. Data. OleDb .OleDbConnecgtion("Provider=Microsoft . ACE .OLEDB.12-0;Data Source=D: xvašsd-. aceabf") 


| 
j1 Sub 
کک‎ 


نكتب بقية الكود كما في الصورة ولاحظ الفرق البسيط بين نوعي قاعدة 
البيانات المتصلة والمنفصلة 


Formlvb XxX Formlvb [Design] 


A AAT 


Imports System. Data.OleDb 
EPublic Class Form1 


= Private Sub Button1 Click(ByVal sender As System.Object, BEyVal e As System.EventArgs} Handles Button1.Click 

تغرتف اتضال ' | 

Dim co As New System. Data.OleDb.OleDbConnection{("Provider=Microsoft . ACE .OLEDB.12.4;Data Source=D:\asd.accdb" } 
فة تاقا می اتد‎ 


Dim sqlcomm As New System. Data.OleDb.OleDbCommand(" select * from syria", co) 


تكجرين: الاتهال 
co.Open()‏ 
ترسشل لاتقستا رسائة التجاح' 


( "ياعم ضرت متصل" MsgBox)‏ 


" قلق الجا‎ 
co.Close( ) 
End Sub 
End Class 
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يعني لم يختلف شيء بدل ا|اېۉك oledb‏ 


وان اردت انظر لمثال الادراج عليك بعمل النموذج الموافق 
انتبه هناك تفير في الاسماء 


Imports System. Data.OleDb 
]Public Class Form1 


Private Sub Buttonl1 Click(ByVal sender As System.Object, ByVal e As System. EventArgs) Handles Button1.Click 


تجويقف اتصال 
Dim co As New System.Data. OleDb.OleDbConnection("Provider=Microsoft .ACE .OLEDB.12.04;Data Source=D: asd .accdb" })‏ 
تَأَجَد يياتات من الجدول' 
Dim sqlcom As String = "insert into syria(id,myname,cityjJvalues('" & Me.idbox.Text & "','" & Me.nambox. Text & "','" & Me‏ 
Dim sqlcomm As System. Data.OleDb.OleDbCommand = New System. Data.OleDb.OleDbCommand(sqlcom, co)‏ 

" تجرى الأتصال‎ 
co. Open ( ) 


تطلك متة القيام يجالادواع' 
sqlcomm. ExecuteNonQuery ( )‏ 


- کر 2 ٣ 1 E‏ " 
ت سل: لات ق رسالة القجاج 


تاعمى ضرت متصل N15880×)"‏ 


تلق ا لاقهال 
co. Close)‏ 
End Sub‏ 
العبارة كاملة . 
r: = "insert into syria(id,myname,city)Jvalues('" & Me.idbox.Text & "'",'" & Me.nambox. Text & "','" & Me.citybox.Text & ")"‏ 


فيها غلطة صغيرة اعرفها لوحدك وقد نبهت عليها سابقا 


ووا لا واد اها 


city 


e 


latakia 


ارحو ان تکونوا قد استفدتم 
و ارحو ممن لدیه سؤال او لم تنجحح معه عملیات الاتصال 
ان يرسل لي بريدا 
Mohannad.hk1 @gqmail.com‏ 


و انشاء الله سيتلوه المواضيع التالية 
1 - قواعد البيانات في اa5p.1€‏ 
2 استتخذام عفارض البانات لقرض ننيحة الاستقفلام 


